home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / biz / swood / fw_font_.lha / FW_Font-e / FontLook.fw < prev    next >
Text File  |  1997-04-27  |  4KB  |  172 lines
  1. /* Optimized with RexxOpt 1.7 */
  2.  
  3. R='0A'X
  4. Address='FinalW'
  5. Options results
  6. STATUS PORTNAME
  7. FW=result
  8. address=FW
  9. SIGNAL ON BREAK_C
  10. 'ShowMessage 2 0 "FontLook V2.72" "for individual fonts..." "(©) Heiko Schröder - 97/04/27" ":-)" "Ok" "(-:"'
  11. 'ShowMessage 1 1 "A T T E N T I O N !" "The macro needs an empty document!" "Clear the document?" "Yes" "Abort" ""'
  12. if result=2 then call BREAK_C
  13. Cleardoc Force
  14. 'ShowMessage 2 0 "codes or layout" "" "" "codes" "layout" ""'
  15. cl=result
  16. 'ShowMessage 2 0 "Screen output?" "" "" "normal" "speed" ""'
  17. ba=result
  18. 'ShowMessage 1 0 "Do you need perforation signs?" "" "" "Yes" "No" ""'
  19. lm=result
  20. IF ba=2 THEN;DO
  21. status WINDOW
  22. parse VAR result links oben width height minwidth minheight maxwidth maxheight
  23. sizewindow minwidth minheight
  24. End
  25. GetDocItemPrefs Decimal
  26. Punkt=Result
  27. If Punkt="Comma" then DocItemPrefs Decimal Period
  28. Font
  29. a=RC
  30. If a=0 then;do
  31. Type d2c(32)
  32. BackSpace
  33. status FontPath
  34. FullFontName=result
  35. pos=max(index(FullFontName,':'),lastpos('/',FullFontName))
  36. IF (pos~=0) THEN
  37. FontName=RIGHT(FullFontName,LENGTH(FullFontName)-pos)
  38. END
  39. IF ba=2 THEN View 20
  40. Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0
  41. SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
  42. GraphicTool
  43. LinePrefs LineWt .5
  44. DrawLine 1 2 3.5 20 3.5
  45. DrawLine 1 2 26 20 26
  46. If lm=1 then DrawLine 1 .5 14.85 1 14.85
  47. TextTool
  48. If cl=1 then;do
  49. Do i=0 to 13
  50. SetTab i*1.3+0.8 Right
  51. End
  52. Justify Center
  53. Font Softsans
  54. FontSize 18
  55. Type FontName||R||R
  56. a=0
  57. DO w=1 to 15
  58. Font Softsans
  59. FontSize 8
  60. DO x=a+33 to a+46
  61. Type d2c(9)||x|| d2c(32)|| d2c(x)
  62. END
  63. Type R
  64. Font FontName
  65. FontSize 24
  66. DO x=a+33 to a+46
  67. Type d2c(9)
  68. Type d2c(x)
  69. END
  70. Type R
  71. a=a+14
  72. END
  73. Font Softsans
  74. FontSize 8
  75. DO x=a+33 to a+45
  76. Type d2c(9)||x|| d2c(32)|| d2c(x)
  77. END
  78. Type d2c(9)||R
  79. Font FontName
  80. FontSize 24
  81. DO x=a+33 to a+45
  82. Type d2c(9)
  83. Type d2c(x)
  84. END
  85. Type d2c(9)||R
  86. FontSize 12
  87. Type d2c(9)||R
  88. Font Softsans
  89. FontSize 8
  90. Justify Right
  91. Type Date(O)" - "FullFontName
  92. END
  93. If cl=2 then;do
  94. Justify Center
  95. Font Softsans
  96. FontSize 18
  97. Type FontName||R
  98. Justify Left
  99. Font FontName
  100. FontSize 8
  101. Type R||"This is 8-point type - not easy to read!"||R
  102. FontSize 9
  103. Type "9-Point type is about the smallest readable size."||R
  104. FontSize 10
  105. Type "With 10-point type, we have a normal text size."||R
  106. FontSize 12
  107. Type "With some Fonts, 12-point type is easier to read."||R
  108. FontSize 14
  109. Type "14-point type is good for subheadings."||R
  110. FontSize 16
  111. Type "For larger subheadings, try 16-point type."||R
  112. FontSize 18
  113. Type "18-point type makes nice small headlines."||R
  114. FontSize 24
  115. Type "24-point type is for medium headlines."||R
  116. FontSize 36
  117. Type "36-point is for larger ones."||R
  118. FontSize 48
  119. Type "48-point almost shouts!"||R||R
  120. FontSize 12
  121. Font SoftSans
  122. Type "NORMAL"||R
  123. FontSize 10
  124. Font FontName
  125. Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ"||R
  126. Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?"||R
  127. Type "The quick brown fox jumps over the lazy dog."||R||R||R
  128. FontSize 12
  129. Font SoftSans
  130. Type "EXTENDED CHARACTERS"||R
  131. FontSize 10
  132. Font FontName
  133. j=0
  134. Do i=1 to 4
  135. Do k=128+j to 159+j
  136. Type d2c(k)
  137. End
  138. Type R
  139. j=j+32
  140. End
  141. Status BodyTextHeight
  142. th=result
  143. FG=26.24-2.113-th
  144. FG=Trunc(FG*8/0.34)
  145. FontSize FG
  146. Type d2c(9)
  147. Font SoftSans
  148. FontSize 8
  149. Type R
  150. Justify Right
  151. Type Date(O)" - "FullFontName
  152. End
  153. call WH
  154. 'ShowMessage 2 1 "Whats next?" "" "" "save" "print" "abort"'
  155. If result=1 then Save
  156. If result=2 then Print
  157. END
  158. 'ShowMessage 2 0 "Thanx for using." "" "" "@-`-" "Please" ":-))"'
  159. EXIT
  160. BREAK_C:
  161. 'ShowMessage 1 1 "Macro aborted..." "" "" "I know..." "" ""'
  162. call WH
  163. address "REXX"
  164. Address command "delete ram:fonts QUIET"
  165. EXIT
  166. WH:
  167. If ba=2 then;do
  168. View
  169. sizewindow width height
  170. End
  171. If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  172. Return